طھط±طھظٹط¨ ظ…ظ†طھط¯ظٹط§طھ ط§ظ„ظپط±ظٹظ‚ ط§ظ„ط¹ط±ط¨ظٹ ظ„ظ„ط¨ط±ظ…ط¬ط© ظپظٹ ط±طھط¨

مرحبا بالضيف ( دخول | التسجيل )

 
Reply to this topicStart new topicStart Poll

ملخص · [ عادي ] · تدريجي

> اخفاء اطار الاكسس

Enjoy
post Apr 6 2006, 05:48 PM
مشاركة #1


عضو جديد
Group Icon

المجموعة: اعضاء
المشاركات: 28
التسجيل: 10-May 05
رقم العضوية: 49,623



شاهدت موضوع للأخت زهرة بعنوان No Access

وكان مثال رائع جداً واصبح استخدمة الان

ولكن عندي سؤال هل يمكن وضع امر لمرة واحدة

ويتم العمل بهذا الامر لكل النماذج في البرنامج

اذا كان الجواب نعم فأرجو ارفاق مثال

وإذا كان الجواب لا

فأرجو الايضاح

وشكرا
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
zahrah
post Apr 7 2006, 12:20 AM
مشاركة #2


مشرفة قسم قواعد بيانات مايكروسوفت أكسس
Group Icon

المجموعة: المشرفين
المشاركات: 2,007
التسجيل: 13-July 03
رقم العضوية: 15,367




اخي الفاضل
السلام عليكم ورحمة الله وبركانه
بالنسبة لموضوع اخفاء اطار برنامج الاكسيس بحيث تبقى النماذج هي العاملة او الظاهره امام المستخدم اما اطار البرنامج فيتم اخفاؤه .
هذا الامر يتم لمره واحده فقط في النموذج الرئيسي ( يعني اول نموذج تريد ان يكون هو البدايه ) فمثلا يمكن ان يكون شاشة افتتاحية او يمكن نموذج رئيسي وعن طريقه يتم فتح نماذج اخرى .
لهذا فإن الكود المسئول عن اخفاء اطار الاكسيس يتم استدعاؤه مره واحده فقط عند الفتح ثم يسري هذا الامر على بقية النماذج والتقارير ولا يوضع في بقية النملذج اي كود بل تبقى كما هي اللهم اننا نقوم بجعل خاصية النماذج او التقارير الى منبثق و شكلي او مشروط الى نعم حتى تكون في المقدمه بدلا ان تكون خلف النموذج الاول .
وبما ان المثال لديك المطبق عليه اخفاء اطار الاكسيس حاول القيام بالتجربه وضع 3 نماذج وتقرير وغير خاصية النماذج والتقرير الى منبثق وشكلى او مشروط وانظر النتيجه .



--------------------
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Enjoy
post Apr 7 2006, 11:18 PM
مشاركة #3


عضو جديد
Group Icon

المجموعة: اعضاء
المشاركات: 28
التسجيل: 10-May 05
رقم العضوية: 49,623



الاخت زهرة

بعد التحية والاحترام

لقد حاولت ولم تنجح المحاولة

حيث تم ادراج الامر في القائمة الرئيسية فقط

وحينما افتح قائمة اخرى يفتح معها اطار الاكسس وتغلق مع الرجوع للقائمة الرئيسية

مع ملاحظة انه يوجد امر اغلاق النموذج الرئيسي في حال فتح اي نموذج اخر (لسبب معين)
اذا كان هذا السبب ارجو الافادة

مرفق ملف للتجربة لأن البرنامج كبير كثير

قائمة رئيسية وقائمة المتدربين فقط

الملفات المرفقة
الملف المرفق  AcademyTest.zip ( 137.06k ) عدد مرات التحميل: 49
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
zahrah
post Apr 8 2006, 10:50 PM
مشاركة #4


مشرفة قسم قواعد بيانات مايكروسوفت أكسس
Group Icon

المجموعة: المشرفين
المشاركات: 2,007
التسجيل: 13-July 03
رقم العضوية: 15,367




تفضل اخي الكريم
ملفك بعد التعديل
السبب وراء اغلاق النموذج مباشرة هي الاكواد الموضوعة في حدث عند الفتح وقد قمنا بتعليقها لانها تحمل كود اغلاق DoCmd.Close
الملف المرفق  AcademyTest_ZA.rar ( 111.32k ) عدد مرات التحميل: 30


اختكم
زهره


--------------------
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Enjoy
post أمس, 05:21 AM
مشاركة #5


عضو جديد
Group Icon

المجموعة: اعضاء
المشاركات: 28
التسجيل: 10-May 05
رقم العضوية: 49,623



كلمة شكر قليلة في حقك انت وجميع الاخوة المشرفين والمشاركين في هذة المنتديات الابداعية

لقد اوشك الوقت على الانتهاء من تصميم برنامج خاص بجهة تدريب حاسب الي
وكان الفضل بعد فضل الله في ذلك لكي اختي الكريمة كجزء كبير جدا في حل بعض الاشكالات التي تخيلت بأن ليس لها حل
ولا انكر فضل بعض المشرفين والاخوة المشاركين

User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Scoool
post أمس, 07:50 AM
مشاركة #6


عضو جديد
Group Icon

المجموعة: اعضاء جدد
المشاركات: 19
التسجيل: 11-December 05
رقم العضوية: 66,707



بليييز Enjoy

ممكن رابط الموضوع No Access


--------------------
لا يمكنك تعليم الطائر الطيران .. انما تطعمه حتى يكتب الله له ما يكون

من مؤلفاتي :
تنصيب فيجوال ستوديو دوت نت
تنصيب متطلبات فيجوال ستوديو دوت نت
سلسلة تعلم البرمجة بلغة فيجوال بيسك - الجزء الأول
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Enjoy
post أمس, 12:45 PM
مشاركة #7


عضو جديد
Group Icon

المجموعة: اعضاء
المشاركات: 28
التسجيل: 10-May 05
رقم العضوية: 49,623



الاخ Scoool

الموضوع مايحتاج رابط ولا شي

فقط قم بانزال آخر ملف تم تعديله من قبل الاخت زهرة وستجد مطلوبك فية (ِAcademyTest ZA)

وفي حال رغبتك في ادراج الامر في برنامجك قم بنسخ الامر الموجود في حدث عند فتح في القائمة الرئيسية والصقة في قائمة برنامجك الرئيسية
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
icee
post أمس, 05:36 PM
مشاركة #8


عضو جديد
Group Icon

المجموعة: اعضاء جدد
المشاركات: 16
التسجيل: 6-April 06
رقم العضوية: 76,372



شلون نقدر انشوف الكود و البرنامج فقط قاعد يعرض لينا الفورم في صورة عرض و ما نقدر نسوي اي اكسس اليها......, اذا ممكن حط لينه الطريقة الي قمت فيها او مثل ما قال اخ scoool حط لينا رابط الموضوع NO Access وجزاك الله خيرا.
User is online!Profile CardPM
Go to the top of the page
+Quote Post
zahrah
post أمس, 07:40 PM
مشاركة #9


مشرفة قسم قواعد بيانات مايكروسوفت أكسس
Group Icon

المجموعة: المشرفين
المشاركات: 2,007
التسجيل: 13-July 03
رقم العضوية: 15,367



لاخفاء شاشة الاكسيس نهائيا
اتبع الطريقة التالية
1. اعرض النموذج في وضع التصميم
2. اختر خصائص النموذج وانتقل للتبويب الكل واجعل الخيار
منبثق الى نعم
شكلي او مشروط الى نعم

من اشرطة قوائم الاكسيس
1. اختر ادوات ثم بدء التشغيل
2. ازل علامات الصح من المربعات
3. من خيار فتح تموذج / صفحة اضغط السهم للاسفل واختر النموذج المطلوب الذي سيفتح في بداية التشغيل
4. اختر موافق

لوضع الحدث
1. اعرض النموذج في وضع التصميم
2. اختر خصائص النموذج
3. انتقل للتبويب حدث
4. اختر الحدث عند الفتح
5. اضغط على السهم الصغير وسترى عبارة اجراء حدث ثم بإختيارها
6. بجانب السهم الصغير يوجد مربع صغير ... ذو ثلاث نقاط قم بالضغط عليه سيفتح لك محرر الفيجول بيسك
او اختصارا لهذه الخطوات قم بالضغط مباشرة على المفتاحين معا في لوحة المفاتيح ALT+F11 وسيفتح لك محرر الفيجول بيسك
7. ضع هذا الكود في حدث عند الفتح
CODE

Private Sub Form_Open(Cancel As Integer)
fSetAccessWindow (SW_HIDE)
End Sub


عمل زر انهاء البرنامج بالكامل
انشىء زر امر على النموذج وضع في حدث عند النقر هذا الكود
CODE

DoCmd.Quit


انشاء وحدة نمطية جديده
انتقل الى اطار القاعدة وسترى كائنات القاعدة ( جداول - تقارير - استعلامات - نماذج - ماكرو - وحدة نمطية )
اختر الاخيرة ومن ثم اختر جديد
الان ضع هذا الكود
CODE

Option Compare Database

Global Const SW_HIDE = 0

Private Declare Function apiShowWindow Lib "user32" _
   Alias "ShowWindow" (ByVal hwnd As Long, _
         ByVal nCmdShow As Long) As Long

Function fSetAccessWindow(nCmdShow As Long)
Dim loX  As Long
Dim loForm As Form
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End Function


قم بحفظ ما عملت واخرج من القاعدة وبرنامج الاكسيس واعد فتح القاعدة سترى ان شاشة وبنامج الاكسيس مختفي ولا يظهر لك الا النموذج فقط

وهذا مثال
الملف المرفق  No_Access_up.rar ( 14.58k ) عدد مرات التحميل: 7


اختكم
زهره


--------------------
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
الفيلسوف111
post أمس, 07:53 PM
مشاركة #10


عضو
**

المجموعة: اعضاء
المشاركات: 85
التسجيل: 27-January 05
رقم العضوية: 40,541



السلام عليكم
الاخت الفاضلة زهرة الله يعطيك الصحة والعافية وعساك على القوه .....الف شكر 1000000000000000000%
الاخ الفاضل Enjoy
مشكور على السؤال الجيد والى الامام إن شاء الله
تحياتي


--------------------
طارق العيد
User is offlineProfile CardPM
Go to the top of the page
+Quote Post

Reply to this topicTopic OptionsStart new topic
1 عدد القراء الحاليين لهذا الموضوع (1 الزوار 0 المتخفين)
0 الأعضاء:
 

نسخة خفيفة الوقت الآن: 10th April 2006 - 02:44 PM
طھط±طھظٹط¨ ظˆط¥ط­طµط§ط¦ظٹط§طھ ط§ظ„ظ…ظˆط§ظ‚ط¹ ظپظٹ ط±طھط¨